home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ WinNT AutoShares 2.xpl < prev    next >
Text File  |  1999-06-12  |  2KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Network\Security\Shares"
  5. "NAME"="Harddisc Shares"
  6. "VERSION"="1.1"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable auto HD shares (Workstation)"
  9. "TEXT 2"="Enable auto HD shares (Server)"
  10. "DESCRIPTION 1"="This option allows you to control if Windows should automatically create HD shares (C$, D$, E$ and so on)."
  11. "DESCRIPTION 2"="Please select the option for your version of Windows NT, either Workstation or Server."
  12. "DESCRIPTION 3"=""
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16.  
  17.  
  18.  
  19. sp="HKLM\System\CurrentControlSet\Services\LanmanServer\Parameters\"
  20. sV1="AutoShareWks"
  21. sV2="AutoShareServer"
  22.  
  23. Sub Plugin_Initialize 
  24.  If GetWinVer=2 then
  25.     i=RegReadValue(sP&sV1)
  26.     if i=1 or IsEmpty(i)  then 
  27.        SetUIElement 1,true
  28.     end if
  29.  
  30.     i=RegReadValue(sP&sV2)
  31.     if i=1 or IsEmpty(i) then 
  32.        SetUIElement 2,true
  33.     end if
  34.      
  35.  
  36.  else
  37.   Disable
  38.  end if
  39.  
  40. End Sub
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  b=GetUIElement(1)
  47.  if b=true then
  48.    Call RegWriteValue(sP&sV1,1,2)
  49.  else
  50.    Call RegWriteValue(sP&sV1,0,2)
  51.  end if
  52.  
  53.  b=GetUIElement(2)
  54.  if b=true then
  55.    Call RegWriteValue(sP&sV2,1,2)
  56.  else
  57.    Call RegWriteValue(sP&sV2,0,2)
  58.  end if
  59.  
  60.  Restart
  61. End Sub
  62.  
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.  
  67.  
  68.  
  69.